Textovy vystup
Otázka od: mr.guest_delphi@centrum.cz
18. 10. 2004 22:48
Jak tohle srovnat :
Korpus: Hloubka x Vyska Celo: Vyska x Sirka
Suplik 1.) 37 x 48 51,5 x 15,5
Suplik 2.) 37 x 568 72,5 x 15,5
Suplik 3.) 37 x 1038 72,5 x 15,5
Aby to vypadalo nejak takhle
Korpus: Hloubka x Vyska Celo: Vyska x Sirka
Suplik 1.) 37 x 48 51,5 x 15,5
Suplik 2.) 255 x 568 72,5 x 155,5
Suplik 3.) 37 x 1038 172,5 x 15,5
Kod :
WriteLn(vystup, 'Korpus: Hloubka x Vyska Celo: Vyska x Sirka');
Tempik := 0 ;
Celkem := 0 ;
while (Tempik < Length(PoleCel)) do
begin
Celkem := PoleCel[Tempik].bokVrtani ;
WriteLn(vystup, ' Suplik ' + IntToStr(Tempik+1) + '.) ' +
FloatToStr(Hloubka) + ' x ' + FloatToStr(Celkem) + #9#9 + ' '
+ FloatToStr(PoleCel[Tempik].celoVVrtani) + ' x ' +
FloatToStr(PoleCel[Tempik].celoSVrtani) + #9#9#9);
Inc(Tempik) ;
end;
Diky, snad je to jednoduse a primo receno.
Odpovedá: Marian Nykel
19. 10. 2004 7:02
Asi bych na to sel pres funkci Format - lze v ni nastavit pocet znaku vystupu,
zarovnani, vyplnovani atd. Chce si to s ni jenom pohrat...
--
mANY
Odpovedá: Obermaier Petr Ing.
19. 10. 2004 6:50
From: delphi-l-owner@clexpert.cz [mailto:delphi-l-owner@clexpert.cz]On Behalf
Of mr.guest_delphi@centrum.cz
Jak tohle srovnat :
Korpus: Hloubka x Vyska Celo: Vyska x Sirka
- urci si max. sirky sloupcu
- pracuj s pomocnym stringem naplnenym mezerami pro sumu max. sirek s
uvazovanim dalsich "pevnych" mezer mezi sloupci
- v pomocnem stringu na pozici "suma max. sirky predch. sloupcu" + 1 zapisuj
pres Copy hodnoty pro aktualni sloupec
- vypis zobrazuj neproporcionalnim fontem (courier, lucida)